Delphi Magazine Collection 2001/Delphi Magazine Collection 20001 (2001).iso/DISKS/Issue57/DataAwar/Listing3.pas

Pascal/Delphi Source File | 2000-04-04 | 522 b | 13 lines

procedure TdlgCustomerDetails.LoadTab (TabSheet: TTabSheet; ObjectToLoad: TObject);
begin
  with ObjectToLoad as TDataSet do begin
    if TabSheet = tabDetails then begin
      edtName.Text := FieldByName ('Name').AsString;
      mmoAddress.CommaText := FieldByName ('Address').AsString;
      edtPostcode.Text := FieldByName ('Postcode').AsString;
      edtTelephone.Text := FieldByName ('Telephone').AsString;
    end else if TabSheet = tabOrders then begin
      // Populate orders tabà
    end;
  end;
end;